From 3af1a1f3c21056071fbfb2449dcd0d57ff7120c5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 15 Jun 1993 20:51:15 +0000 Subject: [PATCH] (define-mail-alias): Remove excess whitespace better. --- lisp/mail/mailalias.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 3918a520e04..a807d331992 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -157,10 +157,10 @@ DEFINITION can be one or more mail addresses separated by commas." (setq mail-aliases nil) (if (file-exists-p "~/.mailrc") (build-mail-aliases)))) - ;; Strip leading and trailing blanks. - (if (string-match "^[ \t]+" definition) + ;; strip garbage from front and end + (if (string-match "\\`[ \t\n,]+" definition) (setq definition (substring definition (match-end 0)))) - (if (string-match "[ \t]+$" definition) + (if (string-match "[ \t\n,]+\\'" definition) (setq definition (substring definition 0 (match-beginning 0)))) (let ((first (aref definition 0)) (last (aref definition (1- (length definition)))) -- 2.30.2